library(seqinr)
library(ape)
setwd(dir ="~/Desktop/mrbayes/Fabales")
Fabales_its2 <- read.csv("Fabales_its2.csv")
Fabales_its2_genbank_its2 <- read.GenBank(Fabales_its2$its2)
write.dna(Fabales_its2_genbank_its2, file = "Fabales_its2.fasta", format = "fasta", append = FALSE)
Fabales_its2_seqinr <- read.fasta(file = "Fabales_its2.fasta", seqtype = "DNA", as.string = TRUE, forceDNAtolower = FALSE)
write.fasta(sequences = Fabales_its2_seqinr, names = Fabales_its2$speciesname, file.out = "Fabales_its2_sequences.fasta")
setwd(dir ="~/Desktop/mrbayes/Fagales")
Fagales_its2 <- read.csv("Fagales_its2.csv")
Fagales_its2_genbank_its2 <- read.GenBank(Fagales_its2$its2)
write.dna(Fagales_its2_genbank_its2, file = "Fagales_its2.fasta", format = "fasta", append = FALSE)
Fagales_its2_seqinr <- read.fasta(file = "Fagales_its2.fasta", seqtype = "DNA", as.string = TRUE, forceDNAtolower = FALSE)
write.fasta(sequences = Fagales_its2_seqinr, names = Fagales_its2$speciesname, file.out = "Fagales_its2_sequences.fasta")
setwd(dir ="~/Desktop/mrbayes/Gentianales")
Gentianales_its2 <- read.csv("Gentianales_its2.csv")
Gentianales_its2_genbank_its2 <- read.GenBank(Gentianales_its2$its2)
write.dna(Gentianales_its2_genbank_its2, file = "Gentianales_its2.fasta", format = "fasta", append = FALSE)
Gentianales_its2_seqinr <- read.fasta(file = "Gentianales_its2.fasta", seqtype = "DNA", as.string = TRUE, forceDNAtolower = FALSE)
write.fasta(sequences = Gentianales_its2_seqinr, names = Gentianales_its2$speciesname, file.out = "Gentianales_its2_sequences.fasta")
setwd(dir ="~/Desktop/mrbayes/Lamiales")
Lamiales_its2 <- read.csv("Lamiales_its2.csv")
Lamiales_its2_genbank_its2 <- read.GenBank(Lamiales_its2$its2)
write.dna(Lamiales_its2_genbank_its2, file = "Lamiales_its2.fasta", format = "fasta", append = FALSE)
Lamiales_its2_seqinr <- read.fasta(file = "Lamiales_its2.fasta", seqtype = "DNA", as.string = TRUE, forceDNAtolower = FALSE)
write.fasta(sequences = Lamiales_its2_seqinr, names = Lamiales_its2$speciesname, file.out = "Lamiales_its2_sequences.fasta")
setwd(dir ="~/Desktop/mrbayes/Laurales")
Laurales_its2 <- read.csv("Laurales_its2.csv")
Laurales_its2_genbank_its2 <- read.GenBank(Laurales_its2$its2)
write.dna(Laurales_its2_genbank_its2, file = "Laurales_its2.fasta", format = "fasta", append = FALSE)
Laurales_its2_seqinr <- read.fasta(file = "Laurales_its2.fasta", seqtype = "DNA", as.string = TRUE, forceDNAtolower = FALSE)
write.fasta(sequences = Laurales_its2_seqinr, names = Laurales_its2$speciesname, file.out = "Laurales_its2_sequences.fasta")
setwd(dir ="~/Desktop/mrbayes/Magnoliales")
Magnoliales_its2 <- read.csv("Magnoliales_its2.csv")
Magnoliales_its2_genbank_its2 <- read.GenBank(Magnoliales_its2$its2)
write.dna(Magnoliales_its2_genbank_its2, file = "Magnoliales_its2.fasta", format = "fasta", append = FALSE)
Magnoliales_its2_seqinr <- read.fasta(file = "Magnoliales_its2.fasta", seqtype = "DNA", as.string = TRUE, forceDNAtolower = FALSE)
write.fasta(sequences = Magnoliales_its2_seqinr, names = Magnoliales_its2$speciesname, file.out = "Magnoliales_its2_sequences.fasta")
setwd(dir ="~/Desktop/mrbayes/Malpighiales")
Malpighiales_its2 <- read.csv("Malpighiales_its2.csv")
Malpighiales_its2_genbank_its2 <- read.GenBank(Malpighiales_its2$its2)
write.dna(Malpighiales_its2_genbank_its2, file = "Malpighiales_its2.fasta", format = "fasta", append = FALSE)
Malpighiales_its2_seqinr <- read.fasta(file = "Malpighiales_its2.fasta", seqtype = "DNA", as.string = TRUE, forceDNAtolower = FALSE)
write.fasta(sequences = Malpighiales_its2_seqinr, names = Malpighiales_its2$speciesname, file.out = "Malpighiales_its2_sequences.fasta")
setwd(dir ="~/Desktop/mrbayes/Malvales")
Malvales_its2 <- read.csv("Malvales_its2.csv")
Malvales_its2_genbank_its2 <- read.GenBank(Malvales_its2$its2)
write.dna(Malvales_its2_genbank_its2, file = "Malvales_its2.fasta", format = "fasta", append = FALSE)
Malvales_its2_seqinr <- read.fasta(file = "Malvales_its2.fasta", seqtype = "DNA", as.string = TRUE, forceDNAtolower = FALSE)
write.fasta(sequences = Malvales_its2_seqinr, names = Malvales_its2$speciesname, file.out = "Malvales_its2_sequences.fasta")
Malvales_its1 <- read.csv("Malvales_its1.csv")
setwd(dir ="~/Desktop/mrbayes/Myrtales")
Myrtales_its2 <- read.csv("Myrtales_its2.csv")
Myrtales_its2_genbank_its2 <- read.GenBank(Myrtales_its2$its2)
write.dna(Myrtales_its2_genbank_its2, file = "Myrtales_its2.fasta", format = "fasta", append = FALSE)
Myrtales_its2_seqinr <- read.fasta(file = "Myrtales_its2.fasta", seqtype = "DNA", as.string = TRUE, forceDNAtolower = FALSE)
write.fasta(sequences = Myrtales_its2_seqinr, names = Myrtales_its2$speciesname, file.out = "Myrtales_its2_sequences.fasta")
setwd(dir ="~/Desktop/mrbayes/Laurales")
Laurales_its2 <- read.csv("Laurales_its2.csv")
Laurales_its2_genbank_its2 <- read.GenBank(Laurales_its2$its2)
write.dna(Laurales_its2_genbank_its2, file = "Laurales_its2.fasta", format = "fasta", append = FALSE)
Laurales_its2_seqinr <- read.fasta(file = "Laurales_its2.fasta", seqtype = "DNA", as.string = TRUE, forceDNAtolower = FALSE)
write.fasta(sequences = Laurales_its2_seqinr, names = Laurales_its2$speciesname, file.out = "Laurales_its2_sequences.fasta")
setwd(dir ="~/Desktop/mrbayes/Fabales")
Fabales_its2 <- read.csv("Fabales_its2.csv")
Fabales_its2_genbank_its2 <- read.GenBank(Fabales_its2$its2)
write.dna(Fabales_its2_genbank_its2, file = "Fabales_its2.fasta", format = "fasta", append = FALSE)
Fabales_its2_seqinr <- read.fasta(file = "Fabales_its2.fasta", seqtype = "DNA", as.string = TRUE, forceDNAtolower = FALSE)
write.fasta(sequences = Fabales_its2_seqinr, names = Fabales_its2$speciesname, file.out = "Fabales_its2_sequences.fasta")
setwd(dir ="~/Desktop/mrbayes/Fagales")
Fagales_its2 <- read.csv("Fagales_its2.csv")
Fagales_its2_genbank_its2 <- read.GenBank(Fagales_its2$its2)
write.dna(Fagales_its2_genbank_its2, file = "Fagales_its2.fasta", format = "fasta", append = FALSE)
Fagales_its2_seqinr <- read.fasta(file = "Fagales_its2.fasta", seqtype = "DNA", as.string = TRUE, forceDNAtolower = FALSE)
write.fasta(sequences = Fagales_its2_seqinr, names = Fagales_its2$speciesname, file.out = "Fagales_its2_sequences.fasta")
setwd(dir ="~/Desktop/mrbayes/Lamiales")
Lamiales_its2 <- read.csv("Lamiales_its2.csv")
Lamiales_its2_genbank_its2 <- read.GenBank(Lamiales_its2$its2)
write.dna(Lamiales_its2_genbank_its2, file = "Lamiales_its2.fasta", format = "fasta", append = FALSE)
Lamiales_its2_seqinr <- read.fasta(file = "Lamiales_its2.fasta", seqtype = "DNA", as.string = TRUE, forceDNAtolower = FALSE)
write.fasta(sequences = Lamiales_its2_seqinr, names = Lamiales_its2$speciesname, file.out = "Lamiales_its2_sequences.fasta")
setwd(dir ="~/Desktop/mrbayes/Lamiales")
Lamiales_its2 <- read.csv("Lamiales_its2.csv")
Lamiales_its2_genbank_its2 <- read.GenBank(Lamiales_its2$its2)
write.dna(Lamiales_its2_genbank_its2, file = "Lamiales_its2.fasta", format = "fasta", append = FALSE)
Lamiales_its2_seqinr <- read.fasta(file = "Lamiales_its2.fasta", seqtype = "DNA", as.string = TRUE, forceDNAtolower = FALSE)
write.fasta(sequences = Lamiales_its2_seqinr, names = Lamiales_its2$speciesname, file.out = "Lamiales_its2_sequences.fasta")
setwd(dir ="~/Desktop/mrbayes/Laurales")
Laurales_its1 <- read.csv("Laurales_its1.csv")
Laurales_its1_genbank_its1 <- read.GenBank(Laurales_its1$its1)
write.dna(Laurales_its1_genbank_its1, file = "Laurales_its1.fasta", format = "fasta", append = FALSE)
Laurales_its1_seqinr <- read.fasta(file = "Laurales_its1.fasta", seqtype = "DNA", as.string = TRUE, forceDNAtolower = FALSE)
write.fasta(sequences = Laurales_its1_seqinr, names = Laurales_its1$speciesname, file.out = "Laurales_its1_sequences.fasta")
Laurales_its1 <- read.csv("Laurales_its1.csv")
Laurales_its1_genbank_its1 <- read.GenBank(Laurales_its1$its1)
write.dna(Laurales_its1_genbank_its1, file = "Laurales_its1.fasta", format = "fasta", append = FALSE)
Laurales_its1_seqinr <- read.fasta(file = "Laurales_its1.fasta", seqtype = "DNA", as.string = TRUE, forceDNAtolower = FALSE)
write.fasta(sequences = Laurales_its1_seqinr, names = Laurales_its1$speciesname, file.out = "Laurales_its1_sequences.fasta")
Laurales_its1 <- read.csv("Laurales_its1.csv")
Laurales_its1_genbank_its1 <- read.GenBank(Laurales_its1$its1)
write.dna(Laurales_its1_genbank_its1, file = "Laurales_its1.fasta", format = "fasta", append = FALSE)
Laurales_its1_seqinr <- read.fasta(file = "Laurales_its1.fasta", seqtype = "DNA", as.string = TRUE, forceDNAtolower = FALSE)
write.fasta(sequences = Laurales_its1_seqinr, names = Laurales_its1$speciesname, file.out = "Laurales_its1_sequences.fasta")
setwd(dir ="~/Desktop/mrbayes/Magnoliales")
Magnoliales_its2 <- read.csv("Magnoliales_its2.csv")
Magnoliales_its2_genbank_its2 <- read.GenBank(Magnoliales_its2$its2)
write.dna(Magnoliales_its2_genbank_its2, file = "Magnoliales_its2.fasta", format = "fasta", append = FALSE)
Magnoliales_its2_seqinr <- read.fasta(file = "Magnoliales_its2.fasta", seqtype = "DNA", as.string = TRUE, forceDNAtolower = FALSE)
write.fasta(sequences = Magnoliales_its2_seqinr, names = Magnoliales_its2$speciesname, file.out = "Magnoliales_its2_sequences.fasta")
Magnoliales_its2 <- read.csv("Magnoliales_its2.csv")
Magnoliales_its2_genbank_its2 <- read.GenBank(Magnoliales_its2$its2)
write.dna(Magnoliales_its2_genbank_its2, file = "Magnoliales_its2.fasta", format = "fasta", append = FALSE)
Magnoliales_its2_seqinr <- read.fasta(file = "Magnoliales_its2.fasta", seqtype = "DNA", as.string = TRUE, forceDNAtolower = FALSE)
write.fasta(sequences = Magnoliales_its2_seqinr, names = Magnoliales_its2$speciesname, file.out = "Magnoliales_its2_sequences.fasta")
Magnoliales_its2 <- read.csv("Magnoliales_its2.csv")
Magnoliales_its2_genbank_its2 <- read.GenBank(Magnoliales_its2$its2)
write.dna(Magnoliales_its2_genbank_its2, file = "Magnoliales_its2.fasta", format = "fasta", append = FALSE)
Magnoliales_its2_seqinr <- read.fasta(file = "Magnoliales_its2.fasta", seqtype = "DNA", as.string = TRUE, forceDNAtolower = FALSE)
write.fasta(sequences = Magnoliales_its2_seqinr, names = Magnoliales_its2$speciesname, file.out = "Magnoliales_its2_sequences.fasta")
Magnoliale_its2 <- read.csv("Magnoliale_its2.csv")
Magnoliale_its2_genbank_its2 <- read.GenBank(Magnoliale_its2$its2)
write.dna(Magnoliale_its2_genbank_its2, file = "Magnoliale_its2.fasta", format = "fasta", append = FALSE)
Magnoliale_its2_seqinr <- read.fasta(file = "Magnoliale_its2.fasta", seqtype = "DNA", as.string = TRUE, forceDNAtolower = FALSE)
write.fasta(sequences = Magnoliale_its2_seqinr, names = Magnoliale_its2$speciesname, file.out = "Magnoliale_its2_sequences.fasta")
Magnoliale_its2 <- read.csv("Magnoliale_its2.csv")
Magnoliale_its2_genbank_its2 <- read.GenBank(Magnoliale_its2$its2)
write.dna(Magnoliale_its2_genbank_its2, file = "Magnoliale_its2.fasta", format = "fasta", append = FALSE)
Magnoliale_its2_seqinr <- read.fasta(file = "Magnoliale_its2.fasta", seqtype = "DNA", as.string = TRUE, forceDNAtolower = FALSE)
Magnoliale_its2 <- read.csv("Magnoliale_its2.csv")
Magnoliale_its2_genbank_its2 <- read.GenBank(Magnoliale_its2$its2)
write.dna(Magnoliale_its2_genbank_its2, file = "Magnoliale_its2.fasta", format = "fasta", append = FALSE)
Magnoliale_its2_seqinr <- read.fasta(file = "Magnoliale_its2.fasta", seqtype = "DNA", as.string = TRUE, forceDNAtolower = FALSE)
write.fasta(sequences = Magnoliale_its2_seqinr, names = Magnoliale_its2$speciesname, file.out = "Magnoliale_its2_sequences.fasta")
Magnoliale_its2 <- read.csv("Magnoliale_its2.csv")
Magnoliale_its2_genbank_its2 <- read.GenBank(Magnoliale_its2$its2)
write.dna(Magnoliale_its2_genbank_its2, file = "Magnoliale_its2.fasta", format = "fasta", append = FALSE)
Magnoliale_its2_seqinr <- read.fasta(file = "Magnoliale_its2.fasta", seqtype = "DNA", as.string = TRUE, forceDNAtolower = FALSE)
write.fasta(sequences = Magnoliale_its2_seqinr, names = Magnoliale_its2$speciesname, file.out = "Magnoliale_its2_sequences.fasta")
setwd(dir ="~/Desktop/mrbayes/Malpighiales")
Malpighiales_its2 <- read.csv("Malpighiales_its2.csv")
Malpighiales_its2_genbank_its2 <- read.GenBank(Malpighiales_its2$its2)
write.dna(Malpighiales_its2_genbank_its2, file = "Malpighiales_its2.fasta", format = "fasta", append = FALSE)
Malpighiales_its2_seqinr <- read.fasta(file = "Malpighiales_its2.fasta", seqtype = "DNA", as.string = TRUE, forceDNAtolower = FALSE)
write.fasta(sequences = Malpighiales_its2_seqinr, names = Malpighiales_its2$speciesname, file.out = "Malpighiales_its2_sequences.fasta")
Malpighiales_its2 <- read.csv("Malpighiales_its2.csv")
Malpighiales_its2_genbank_its2 <- read.GenBank(Malpighiales_its2$its2)
write.dna(Malpighiales_its2_genbank_its2, file = "Malpighiales_its2.fasta", format = "fasta", append = FALSE)
Malpighiales_its2_seqinr <- read.fasta(file = "Malpighiales_its2.fasta", seqtype = "DNA", as.string = TRUE, forceDNAtolower = FALSE)
write.fasta(sequences = Malpighiales_its2_seqinr, names = Malpighiales_its2$speciesname, file.out = "Malpighiales_its2_sequences.fasta")
